;
; ------------------------------------------------------------
;
;   PureBasic - Library
;
;    (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
;

If OpenLibrary(0, "USER32.DLL")

  *F = GetFunction(0, "MessageBoxA")
  If *F
    CallFunctionFast(*F, 0, "Body", "Title", 0)
  EndIf
  
  CloseLibrary(0)
EndIf